BBS in a Box 2/BBS in a box - Trilogy II.iso/Files/Hyper/Ss-Sz/Stack Starter ß.979/Stack Starter fl.979/card_16975.txt

Text File | 1989-07-29 | 10.6 KB | 488 lines

-- card: 16975 from stack: in.979
-- bmap block id: 0
-- flags: 0000
-- background id: 7045
-- name: the effects editor
----- HyperTalk script -----
on mouseUp
  global Speed, Color
  --lockcard
  if visible of btn id 26 is true then
    repeat with i = 26 to 33
      set hilite of card btn id i to false
    end repeat
  end if
  get Speed
  if Speed is empty then set hilite of card btn "Normal" to true
  else set hilite of card btn (Speed) to true
  get Color
  if Color is empty then set hilite of card btn "Invisible" to true
  else set hilite of card btn (Color) to true

  pass mouseUp
end mouseUp

on idle
  set lockText of card field "Visual Effects" to true
  if visible of field "Mouse Loc2" is true then
    put the mouseLoc into field "Mouse Loc2"
  end if
  send idle to stack
  exit idle
end idle

on test
  global hold, Speed, Color
  if first word of hold is "Flash" then
    if hilite of bkgnd btn "Multi-EFX" is true then
      put hold & return & card field "Test" into card field "Test"
    end if
    put hold into card field "Test"
    do (card field "Test")
    exit test
  else
    if hilite of card btn "Multi-EFX" is true then
      put "visual effect" && hold && Speed && Color & return & card field "Test" into card field "Test"
    else put "visual effect" && hold && Speed && Color into card field "Test"
    do (card field "Test")
    go to this card
  end if
end test

on effects
  if the visible of card field "Visual Effects" is not true then
    send mouseUp to bkgnd btn "Effects"
  end if
end effects

on openCard
  global Hold
  show menuBar
  if hold is empty then
    put "checkerboard" into hold
    repeat with i = 17 to 19
      if hilite of bkgnd btn id i is true then
        send mouseUp to bkgnd btn id i
      end if
    end repeat
    repeat with i = 42 to 45
      set hilite of card btn id i to false
    end repeat
  end if
  push card
  put the short name of this card into bkgnd field "Title"
  set name of bkgnd btn id 72 to "Prev Card:" && short name of prev card
  set name of bkgnd btn id 73 to "Next Card:" && short name of next card
  pass openCard
end openCard


-- part 25 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=200 top=107 right=268 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Visual Effects
----- HyperTalk script -----
on mouseUp
  global Hold, Speed, Color
  put the optionkey into keystate
  if the selection is empty then
    set lockText of the target to false -- unlock to enable text editing
    click at (first item of the rect of the target), (second item of the clickLoc)
    click at (last item of the rect of the target)+59, (second item of the clickLoc) with shiftKey
    put the selection into hold
    click at 0,0 --disable selection
    set lockText of the target to true
  end if
  if first word of hold is "Flash" then
    if hilite of card btn "Multi-EFX" is true then
      put hold & return & card field "Test" into card field "Test"
    else
      put hold into card field "Test"
    end if
    do (card field "Test")
    exit mouseUp
  else if hilite of card btn "Maintain Speed and Color" is true then
    if hilite of card btn "Multi-EFX" is true then
      put "visual effect" && hold && Speed && Color & return & card field "Test" into card field "Test"
    else
      put "visual effect" && hold && Speed && Color into card field "Test"
    end if
    do (card field "Test")
    go to this card
  else
    put empty into Color
    put empty into Speed
    if hilite of card btn "Multi-EFX" is true then
      put "visual effect" && hold && Speed && Color & return & card field "Test" into card field "Test"
    else
      put "visual effect" && hold into card field "Test"
    end if
    do (card field "Test")
    go to this card
  end if
  pass mouseUp
end mouseUp



-- part 24 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=116 top=76 right=107 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 15
-- part name: Test


-- part 26 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=116 top=107 right=123 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fast
----- HyperTalk script -----
on mouseUp
  global Speed
  put short name of me into Speed
  test
  pass mouseUp
end mouseUp






-- part 27 (button)
-- low flags: 80
-- high flags: C002
-- rect: left=116 top=122 right=138 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Normal
----- HyperTalk script -----
on mouseUp
  global Speed
  put empty into Speed
  test
  pass mouseUp
end mouseUp



-- part 28 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=116 top=137 right=153 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Slow
----- HyperTalk script -----
on mouseUp
  global Speed
  put short name of me into Speed
  test
  pass mouseUp
end mouseUp



-- part 29 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=116 top=152 right=169 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Very Slowly
----- HyperTalk script -----
on mouseUp
  global Speed
  put short name of me into Speed
  test
  pass mouseUp
end mouseUp



-- part 30 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=116 top=168 right=184 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Black
----- HyperTalk script -----
on mouseUp
  global Color
  put short name of me into Color
  test
  pass mouseUp
end mouseUp



-- part 31 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=116 top=182 right=199 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Gray
----- HyperTalk script -----
on mouseUp
  global Color
  put short name of me into Color
  test
  pass mouseUp
end mouseUp



-- part 32 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=116 top=197 right=213 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To White
----- HyperTalk script -----
on mouseUp
  global Color
  put short name of me into Color
  test
  pass mouseUp
end mouseUp



-- part 33 (button)
-- low flags: 80
-- high flags: C002
-- rect: left=116 top=213 right=229 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Invisible
----- HyperTalk script -----
on mouseUp
  global Color
  put empty into Color
  test
  pass mouseUp
end mouseUp



-- part 42 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=116 top=231 right=250 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-EFX
----- HyperTalk script -----
on mouseUp
  set hilite of me to not hilite of me
end mouseUp



-- part 43 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=116 top=249 right=268 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Test Multi
----- HyperTalk script -----
on mouseUp
  put number of lines in card field "Test" into lineNum
  put 1 into done
  repeat until done >lineNum
    get line done in card field "Test"
    do it
    go to this card
    add 1 to done
  end repeat
end mouseUp



-- part 44 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=116 top=268 right=291 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play All
----- HyperTalk script -----
on mouseUp
  global Speed, Color
  put number of lines in card field "Visual Effects" into lineNum
  put 1 into done
  repeat until done >lineNum
    get line done in card field "Visual Effects"
    if word 1 of line done in card field "Visual Effects" is "flash" then
      put it into card field "Test"
      do it
    else
      if hilite of card btn "Maintain Speed and Color" is true then
        put "visual effect" && it && (Speed) && (Color) into card field "Test"
        do (card field "Test")
        go to this card
      else
        put empty into Color
        put empty into Speed
        put "visual effect" && it into card field "Test"
        do (card field "Test")
        go to this card
      end if
    end if
    add 1 to done
  end repeat
end mouseUp



-- part 45 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=276 top=268 right=291 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Maintain Speed and Color
----- HyperTalk script -----
on mouseUp
  set hilite of me to not hilite of me
end mouseUp



-- part contents for card part 25
----- text -----
flash 1
flash 3
flash 6
flash the random of 10
barn door open
barn door close
checkerboard
dissolve
iris open
iris close
plain
scroll left
scroll right
scroll up
scroll down
venetian blinds
wipe left
wipe right
wipe up
wipe down
zoom in
zoom out
zoom open
zoom close


-- part contents for background part 38
----- text -----
the effects editor

-- part contents for background part 53
----- text -----
228,29

-- part contents for background part 52
----- text -----
Mouse Location:

-- part contents for background part 78
----- text -----
Prev Card: knobs

-- part contents for background part 79
----- text -----
Next Card: the field fabricater

-- part contents for background part 81
----- text -----
Free Space:

-- part contents for background part 82
----- text -----
33.97 K